home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 13
/
013.d81
/
ram start
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
41 lines
5 q$=chr$(34)
10 rem ram disk starter
20 rem
30 rem ram disk is written by
40 rem jeff johnson
50 rem
60 rem the wedge which allows
70 rem the usage of the '&'
80 rem sign instead of sys51200
90 rem was programmed by
100 rem alan gardner
110 rem
120 rem
130 ifx=0thenx=1:load"ram wedge.o",8,1
140 ifx=1thenx=2:load"ram disk",8,1
150 sys828
160 poke53281,0:print"[147]ram disk is now active."
165 print" [210][193][205][160][196][201][211][203] uses these commands:"
170 print"&"q$"s:filename"q$" - save a file to ram."
172 print"&"q$"l:filename"q$" - load a file from ram."
174 print"&"q$"k:filename"q$" - kill a file in ram."
175 print"&"q$"a:filename"q$" - save a file to disk."
176 print"&"q$"a"q$" - save all files."
177 print"&"q$"k"q$" - kill all files."
178 print"&"q$"$"q$" - view directory."
180 print:print"[215]ould you like a printed list of the"
182 print"commands?":poke198,0:wait198,1:geta$
184 ifa$<>"y"then200
185 print"[207][203]..[208]ut your printer on-line and press"
186 print"a key.":poke198,0:wait198,1:open4,4,7:cmd4
187 print" [210][193][205][160][196][201][211][203] uses these commands:":print:print
188 print"&"q$"s:filename"q$" - save a file to ram."
189 print"&"q$"l:filename"q$" - load a file from ram."
190 print"&"q$"k:filename"q$" - kill a file in ram."
192 print"&"q$"a:filename"q$" - save a file to disk."
194 print"&"q$"a"q$" - save all files to disk."
196 print"&"q$"k"q$" - kill all files in ram."
198 print"&"q$"$"q$" - view directory."
199 print#4:close4
200 end